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// 



// paap.h 
// The Foxboro Compaxxy Coxxfldentlal 

// Copyright (c) The Foxboro Company. All Rights Reserved 

// G. Couper 8/14/96 

// 

/• 

This file is intended to compensate for not using ${IA} /header /om_user.h 
and all of the things that conflict with JAVA. " 



tinclude <sys/tvpes.h> 
typedef unsigned char u^char; 



#define MAX NSAP LEN 20 /* mayiminn # bytes in net. addr.*/ 

#define MAX^SSAPJlfflff 2 /♦ Max. # of bytes in SSAP id ♦/ 

struct PSAF ADDR { 

u^char ssap^id tMAX_SSAP_LE»l ? 
u^short ts^^id; ~ ~ 
u"*short nsap^'len; 

u'^char nsap address {MAX NSAF LEK] ; 



typedef struct PSAP_ADOR PSAP_ADDR; 



typedef 



PSAP ADDR 



♦PSAP ADDR PTR 



^define 



PSAP ADDR FDRSI2E (MAX SSAP_LEN+2+2+MAXJISAPJLEN) 



#define 



PSAP_SIZE sizeof ( PSAP^ADDR ) 
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// 

// ThreadedTrendServer. jacva 

// The Foxboro Con^any Confidential. 

// Copyright (c) The Foxboro Company. All Ri9hts Reserved 
// G. Couper. B. Canna 8/14/96 

import java.io.*; 

import java.net.*; 

import java.util.StringTokenizer; 

public class ThreadedTrendServer extends Thread 

static // try to load the library of native methods 

' r 

System . out . println ( ■ loading library" ) ; 
^ System . loadLibrary ( " trendm" } ; 

catch (TtesatisfiedLinkError e) 

System.out.println("Can't find library trendm"); 
^ System.exit(*l) ; 

} //end of static library load 

. nativie int omlistcreate ( ) ; //creates a omlist 

' native int omlistadd ( String vamame ) ; //adds a point to the list 

native int omlistopen ( ) ; //opens the list 

native int omlistgetupdate ( byte bC]* int len }; //calls dqchange without suspending 

native int omlistclose ( ) ; //doses the list 

int threadnxjm; 
byte update £] ; 

boolean updating » false; 

Socket sock; 
DataZnputStream soekin; 
DataOutputStream sockOut; 
String line; 

// The following members declare space used by the native methods// 

int jlistpoints; // C library keeps the number of points on the OM list 

int jin open id; // C library stores the Open id into here 

byte j inborn desct] ; // C library stores omjieader node in here 

byte jin"var list[] ; // C library stores the open var list in here 

byte jin'~net'"adr tblC] ; // C library stores the net address table in here 

byte jin'^datan // C library dqaeues changes into here 

// The preceding members declare space used by the native methods// 

ThreadedTrendServer ( Socket s, int c ) 

sock m a; 

t hr ^ ^Tn^ini v c ; 

^ update - new byte C22SJ ; // setup the update buffer 

public void runO // this method is started by .start on the thread class. 

r 

// get ix^ut and output streams associated w/ socket 
soekOut ■ new DataOutputStream (sock.getOutputStream () ) ; 
soekin « new DatalnputStream ( sock • getlnputstream ( ) ) ; 



state 



jinjom^dese « new byte [320}; // allocate the real space in Java for C library 

jin var list « new byte [320]; 
jin^net^adr tbl » new byte [320] ; 
jin data " « new byte [320]; 
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// poll for messages from client and OM changes until client 
// disconnects (via OMBREAK command) 
while (true) 

try 

this.sleepdOOO) ; // sleep for a sec so other threads can run. 
catch ( IntemiptedException e } {}' 

if ( 0 < sockln. available (} ) 

{ 

line « sockln.readliine 0 ; // get a line from the socket 
//print the line for checking purposes 

System. out •princln(threadnum + ■> trendserver: received: " + line ); 

// were we asked to OPEN the list? 
i£( line.startsWith("OHOPEEr") ) 
{ 

String name; 

StringTokeniser st - new stringTokenizer (line, " ;»") ; 
//print the line for checking purposes 

System. out •println{threadnum <i> "> trendserver OMOPEN: request recognized" ); 

System.out.println(threadnum ^ "> trendserver OMOPEM: creating omlist..."}; 
omliat create (} ; 

// First - get rid of the OMOPEN token 
name » st.nextTokenO ; 

// Now - get each name on the OMOPEN line 
while ( st.hasMoreTokensO ) 

// Should be NAME token 
name - st.nextTokenO; 

System. out .println(threadnum -f "> trendserver OMOPEN: adding ^ name <f " 

to the list..." )? 

omlistadd (name) ; 

} 

System. out. println(threadnum + ■> trendserver OMOPEN: opening the list ") ; 

omlistopen ( ) ; 

updating « true; 

} // end of OMOPEN 

// if we are asked to CLOSE the list 
else if (line. equals ("GMCLOSE-)} 

System. out .println(threadnam "> trendserver; close command recognized. 
Closing the OM lists..."); 

omlistelose 0 ; 

sockOut.writeBytes( "OMCLOSEOK\n" ); // sends close string to socket 
updating » false; 

} // end of OMCLOSE 

// if we are asked to BREAK the connection 
else if (line.equalsCWBSEAK")) 

^ System. out. println(threadn\2m -t- *> trendserver: break command recognized. 
Closing the connection. . . ") ; 

omlistelose () ; 
updating « false; 
sock. close 0 ; 
break; 
^ } // end of OMBREAK 

if ( updating ) 
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int mimchars » omlistget-updace ( update , 225 ) ; 

i£ (numchars > 0) Syscem. out .print ( tfareadnum <f "> " ) ; 

for (int i«0;l<xiumchars;i-tH>) 

Sys tern. out. print ( (char) update [i] ); // sends it to the server console 
sockOut • write ( (int) update [i] ); // sends it to socket 

} ^ • 
} // while loop for \xpdate 
) //end o£ run try- 
catch (lOBxception e) 

Sys tern, out, print In ("\r" + threadnum + "> trendserver: exception (client disconnected), 
Continuing- . .") ; 

Systeia.out-println( threadnijm + "> trendserver: closing OM list.,.\r"); 

omlisteloae () ; 

try 

sock. close 0 ; 
catch( ZC3&eception ex ) {} 
} //end of run catch 
} //end of run 
} // end of TlireadedTrendServer 
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// 

// ThreadedClient^java 

// The Poxboro Coa^any Confidential 

// Copyright (c) The Foadaoro Coo^asy. All Rights Reserved 
// A. Nauman, B. Canna B/X4/B6 

import java.util.stringTokenizer; 

in^ort java.awt.*; 

in^ort java.awt. image.*; 

io^ort java.net.*; 

in^ort java.io.*; 

in^ort java.lang.*; 

import java. applet.*; 

////////////////////////////////////////////////////////////// 

// CLASS: TrendClient 

// 

// FUNCTION: 

// — initialize the applet 

// add new panel at the bottom of the applet frame for 

// entering points of interest and displaying their text 

// valne 

// — create three "OpenPoints" for possible use 
// — create the "TrendCanvas" for displaying the trend lines 
// create the "TCPdient* to support coaimunications %rith 

// the server program offering QM data 

////////////////////////////////////////////////////////////// 
public class TrendClient extends Applet 

private TCPClient tClient; 

private TrendCanvas painter; 

private Button startTrend; 

private Button stopTrend; 

private OpenPoint pointl; 

private OpenPoint point2; 

private OpenPoint point3; 

public void initO 

String portid » ■■; 

portid m getParameter ( "portid" ) ; 

String hostZd • ""; 

hostid » getParameter ( "hostZd? } ; 

System.out.printlnC "host id is " -i- hostid -i- " port Id is « portid }; 

setLayout (new BorderLayout () ) ; 

Panel p ■ new Panel (} ; 

p .setLayout (new GridLayout (4,2)); 

p. add (startTrend « new Button ("Start Trend"}); 

p. add (stopTrend « new Button ("Stop Trend")); 

add ("South", p) ; 

poiatl anew OpenPoint ( "yi4CP3 Ol:PID lO.OOT", Color *yellow, p ); 
point2 m new (PenPoint ("Y14CP3*07:PID~18.Otnr", Color.white« p ); 
points m new (PenPoint ("RAMP_yT4CP3:I£aD_Y14CP3.0QT", Color. green, p ); 
aetBadeground (Color .black) ; 

painter - new TrendCazivas (pointl, point2, point3); 
add ("Center", painter); 

r 

tClient m new TCPClient (hostid, portid, this) ; 
if ( tCUent mm null ) 

System.out.println("Unable to create a connection to server"); 
else 

^ tClient. setPriority(Thread.NORM_PRIORmf + 2); 
^ catch (lO^ception e) {} 

////////////////////////////////////////////////////////////// 

// METHOD: destroy 

// 

II FUNCTION: 

// " respond to Netscape exit (i.e., client applet is going 
// OOHNi) 
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// 

////////////////////////////////////////////////////////////// 

public void destroy () 
try 

tCllent.sSend(«0HBRE2ac"} ; 
^ catch ( XO&xception e) {}; 

////////////////////////////////////////////////////////////// 
// METHOD: action 

// 

// FUNCTION: 

// — respond to "STOP TREZQ}" and "START TREZQ>* requests from 
// the panel 

// 

////////////////////////////////////////////////////////////// 
l^ublic boolean action (Event evt. Object arg) 

if (arg -equals ("Start Trend")) 

String message « 

pointl. activate 0 ; 
point2. activate 0 ; 
points .activate (} ; 

if ( pointl. active ) 

message « message ♦ pointl. name + ■ " 
if ( points. active ) 

message » message + point2.name + ■ • 
if( point3. active } 

message ■ message <«• point3.name ^ " •> 

if ( message Im ) 
try 

tClient.sSend("OMOPEN " message); 
catch ( lOSxception e) {}; 

} 

else if (arg. equals ("Stop Trend")) 
try 

tcaient.sSend("OMCZiOSS") ; 
^ catch ( lOEscception e) {}; 

else 

return false; 
^ return true; 

////////////////////////////////////////////////////////////// 
// METHOD: nevMV^air 

// PDHCnON: 

// *- update the appropriate open point with a new value 

// received from the server offering OM data. Note that 

// all points invoked but only those that match the correct 

// name will be i^dated. 

// 

////////////////////////////////////////////////////////////// 
public void newNV^air (String name. String value) 

pointl .updateNV (name, value) j 
point2.updateNV(name, value); 
^ points .updateNV (name, value); 

////////////////////////////////////////////////////////////// 

// METHOD: displayTrend 

// 

// FDNCnON: 

// — update the trend lines on the TrendCanvas 

// will call the TrendCanvas "brush" method to do so! 
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// 

////////////////////////////////////////////////////////////// 

public void displa/rrendO 
^ painter. brush 0 ; 

////////////////////////////////////////////////////////////// 
// METHOD: clearTrendDispXay 

// FDNCTIOM: 

// clear the trend lines on the TrendCanvas 
// zero out text values for points 

// typically called after an OMCX.OSE0K has been received 

// from the server offering OM data 

// 

////////////////////////////////////////////////////////////// 
public void clearTrendDisplayO 

pointl. deactivate () ; 
points • deactivate ( ) 
point3 .deactivate () 

^ painter, dear ( ) ; 
} // Em OF Class TTendClient 



////////////////////////////////////////////////////////////// 

// CLASS I TrendCanvas 

// 

// FUNCTION: 

// — supports the trend display 

// contains a grid AND 

// *- the ability to draw trend lines 

// 

////////////////////////////////////////////////////////////// 
class TrendCanvas extends Canvas 

private OpenPoint pointl; 

private OpenPoint point2; 

private (PenPoint point3; 

private Image buff eredlmage » null; 

private boolean clearDisplay « false; 

private int max^y » 300; 

private int y_scale » 2; 

TrendCanvas ( OpenPoint pi, OpenPoint p2, €)penPoint p3 ) 

pointl m pi; 

point2 " p2; 

^ points > p3; 

///////////////////////////////////////////////////////////// 
/ METHOD: paint 

/ 

/ FUKCnOH: 

/ — dratfs the grid lines on the Trend display in a buffered 
/ image for performance reasons 
/ — likewise for the trend lines 

/ 

////////////////////////////////////////////////////////////// 
public void paint (Graphics g) 

buff eredlmage » createlmage (800, 500) ; 
Graphics bg m buff eredlmage . getGraphics 0 ; 
bg,setColor (Color, blacJc) ; 
bg.fillRectCO, 0, BOO, 500); 

// draw the X and Y axes as well as labels 
bg.setColor(Color.white) ; 
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bg.drawl*ixie(l00,S0,100,400) ; // y-axi3 

bg.dravi«ine (100,400, (max y*y scale) <i-100, 400) ; // x-axis 
int diff-140; " 
£or( int y^CO; y<»400; y+«20, diff 40 ) 

String str2 - •■ + (y+dif f ) ; 
bg.drawLineOO, y, 100, y ); 
^ bg. drawstring (str2, 60, (y + 5)); // y-axia labels 

bg.setPontdiew PontC "Times Roman", Font -BOLD, 14)); 
bg.setColor (Color. white) ; 

bg. drawstring ("Time (seconds) ",350,450 } ; // x-axis title 

// now draw the trend lines 
i£( clearDisplay «« false ) 

drawTrendZ«ine ( pointl, bg ); 
drawTrendZ.ine( point2, bg ) ; , 
^ drawTrendLixie( point3, bg ); 

clearDisplay « false; 
bg.disposeO ; 

// now draw the image on the canvas 

g.drawZmage( bufferedlmage, 0, 0. Color. black, n\ai ); 

} 

/// ////// ///////////////////////////////////////////////////// 

// HBTHOD: imdate 

// 

// FDNCnON: 

// — overloads default update () method so that no automatic 

// screen erase occurs 

// 

////////////////////////////////////////////////////////////// 
public void i9date( Graphics g) 

^ paint (g); 

////////////////////////////////////////////////////////////// 

// METBOD: drawTrezxdLine 

// 

// nmcnoN: 

// — Draw a trend line. 

// — requires that data be passed to us via a circular biiffer 
// — ensure that the point is "active" 
// use the right color 

// — draw a line from the last (x,y) coordinate to the current 
// (x,y) coordinate. If beginning to draw the line, then 
// don't draw from (0,0). 

////////////////////////////////////////////////////////////// 
public void drawTrendLine( OpenPoint p, (Sraphies bg ) 

int numSntries; 
int bufSize; 
int startlte; 
int i; 

, ^ if ( p. active ) 

p.tzpdateBistoryO ; 

bufSize m p.bufSize; 

startZdx « (p .numEntries >« bufSize ) ? p.startldx : 0; 
numEntries » p.numEntrie9-2; 

bg.setColor (p.color) ; 

£or( i « 0; i < numEntries; i++, startldx++ ) 

bg.drawLine(i*y scale+101, 260-p.history ( (startldxlrbufsize) 1 , 

i*y_icale*fl03 , 260-p.history [ ( (startIdx-i-1) %buf Size) ] ) 
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) 

////////////////////////////////////////////////////////////// 

// MEZBOO: brush 
// 

// FUNCTION? 

// m ethod to allow other objects to force redraw of trend lines 
// 

////////////////////////////////////////////////////////////// 
public void brush () 

^ repaint 0; 

////////////////////////////////////////////////////////////// 
// METHOD: dear 

// 

// FUNCTION: 

// method to allow other objects to force clearing of trend 

// lines 

// 

////////////////////////////////////////////////////////////// 
public void clear () 

deazOisplay • true; 
^ repaint () ; 

} // END OF Class TrendCanvas 
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////////////////////////////////////////////////////////////// 



// 

// 
// 
// 
// 
// 
// 
// 
// 
// 



CLASS t 



OpenPeiBt 



FDNCTZOH: 

contains information about each open point 

— allows other objects to activate the point (tell servsr 
offering OM data that the point should be scanned) 

— allows other objects tp deactivate the point 

— allows other objects to set the lastValue (value of the 
open point durlag the last tim* intarval) to the current 
value 

////////////////////////////////////////////////////////////// 
class OpenPoint 



{ 



public 
public 



String 
iattl 



public int 
public int 
pxiblic int 



public Color 



history; 
bufSize; 



// Name of the open point 
// (HACK — should be private) 
// circular buffer for open point values 
// (HACK — shodd be private) 
// Size of circular buffer 
// (BACK — should be private) 
numEntries;// Number of valid entries in the buffer; 

// (BACK — should be private) 
startldx; // current index of buffer containing 
// newest data 

// (BACK — should be private) 
color; // Color to display the open point 
// (HACK — should^ be private) 
//Is this point being trended? 
// (HACK — should be private) 
// Value of open point stored as a String 
// pointer to the panel 

// field in the panel to hold the point name 
// field in the panel to hold the point value 



public boolean active; 

private String stringVal; 
private Panel panel; 
private TextField field; 
private Label label; 

public OpenPoint ( String inputName, Color inputColor, Panel p ) 

name « inputName; 

bufSize -300; 

history « new int (buf Size] ; 

history [01 - 0; 

startZdx » 0; 

numEntries « 0; 
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color m iaputColor.brighterO ; 

active m false; 

panel • p; 

atringVal « "o«; 
p . ae tBackground (Color . darJcGray ) ; 
p.3etPoreground(cclor) ; 
p.add(field « new TextField(naffle« 4) ) ; 
p. aetBacJcground (Color. cyan) ; 
^ p. add (label » new Label (stringVal) ) ; 

////////////////////////////////////////////////////////////// 

// METHOD: activate 

// 

// FUNCTIONS 

// — sets active flag if there is a name in the NAME field 
// 

////////////////////////////////////////////////////////////// 
^xiblic void activate () 

name - field.getText 0 ; 
if ( name 1- ) 
J active « true; 

////////////////////////////////////////////////////////////// 
// METHOD t deactivate 

// FONCXIQN: 

// — unsets active flag; typically called in response to a 
// STOP TREND command 

////////////////////////////////////////////////////////////// 
public void deactivate (} 

active » false; 
StringVal » "O"; 
startldx » O; 
numBntries » O; 
^ label. setText( stringVal ); 

////////////////////////////////////////////////////////////// 

// METHOD: updateNV 

// 

// FONCnON: 

// updates the current and last values when an incoming 
// C3HDFDAXE message was received from the server offering 
// ON data 
// 

////////////////////////////////////////////////////////////// 
public void i9dateNV( String n. String v ) 

if ( active && name. equals (n) ) 

StringVal « v; 

label. 8etText( stringVal ); 

1 

////////////////////////////////////////////////////////////// 
// METHOD: updateHistory 

// FUNCnONs 

// — updates the circular buffer with the latest value 
// 

////////////////////////////////////////////////////////////// 
public void v^dateHistory {) 

history [startldx++] - Float . valueOf (stringVal) . intValue ( ) ; ; 
startldx %» bufSize; 
if ( 4'*fnumEntries >■ bufSize ) 
numBntries » bufSize; 

) 

// END OP Class OpenPoint 
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////////////////////////////////////////////////////////////// 

// ZmSREACS: Timed 

// 

// FONCnOH: 

// -- define an 'Interrupt ■ method to be invoked on an arbitrary 
// event (in this case it %rill be a clock tick as defined 

// in the "Timer" class) . 

// 

////////////////////////////////////////////////////////////// 
interface Timed 

{ 

public void tick (Timer t) ; 



////////////////////////////////////////////////////////////// 

// CLASS: Timer 

// 

// FTOCXIOK: 

// — create a thread that wakes up every second (or so) 
// and invokes the tick "interrupt" call 

// 

////////////////////////////////////////////////////////////// 

class Timer extends Thread 

{ 

private Timed target ; 
private int interval; 

public Timer (Timed t, int i) 
I target » t; interval - i; 
^ setDaemon(true) ; 

Qublic void run() 
I while (true) 

{ try { sleep (interval) ; } 

catch (Interri^tedException e) {} 

target, tick (this) ; 

, } ^ 

} // EMD OF Class Timer 



////////////////////////////////////////////////////////////// 

// CLASS: TCPClient 

// 

// FUNCTIGIff: 

// — enable sending of messages to the serve r 

// — start a timer thread that listens for OHOFXUirE 

/ / messages 

// — update the trend display with HEW values upon receipt 

// of OMDPOATB messages OR 

// update the trend display trith the EXISTING values 

////////////////////////////////////////////////////////////// 
class TCPClient extends Thread io^lements Timed 

public Int xcount « 0; 

private int firstT3jpdate ■ 0; 

private DatalnputStream sin; 

private DataOutputStream sOut; 

private Timer t; 

private Socket s; 

private TrendClient frame; 

public TCPClient (String hostid. String portld. TrendClient f) throws lOException 
frame « f; 

s - new Socket (hostid, Integer.parscint (portld) ); 
sin • new DataInputStream(s.getInputStream() ) ; 
sOut m new DataOutputStream (s. getOutputStream 0 ) ; 
t • new Timer(this.lOOO) ; 
t.startO ; 
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////////////////////////////////////////////////////////////// 

// METHOD: tide 

// 

// FDNCnOH: 

// check the port for incoming data 

// if da ta a vailable, then read a line of data and check 
// for OHDPOATE or OMCLOSSOK messages. 

// 

////////////////////////////////////////////////////////////// 
public void tick (Timer t) 

String line « 

r 

while (sin. available 0 > 0) 
{ 

line « sIn.readLineO ; 

// if OMCLOSS was successful , then clear out display 

if (line. equals ("mCLOSEOK")) 

{ 

firstOpdate « 0; 
xco u nt « 0; 

frame. clearTrendDisplayO ; 

else if ( line.startsWith("0MUFDA3E*) ) 
{ 

String value; 
String name; 

StringTokenizer st « new stringTokeniserCline. " ;>"); 

// First - get rid of the cmSDXrE token 
name ■ st.nextTokenO ; 

// Now • get • ^ac h name*value pair that is on the OMOPOATE line 
while ( st.hasMoreTokensO ) 

name « st.nextTokenO ; // Should be NAME token 

value - St.nextTokenO ; // Should be VXLXJZ token 
^ frame .newHVpair (name « value); 

firstXJpdate » 1; 
} // if OMDPDATE 
} // end of if available 

// Only start drawing when we get the first update! I 
if ( firatUpdate > 0 } 

frame . displayTrend (} ; 
^ XCOUnt'M';; 

^ } catch (XO&eception e) {} 

////////////////////////////////////////////////////////////// 

// METHOD: sSend 

// 

// FUNCTION: 

// — send a message to the server offering OM data 

////////////////////////////////////////////////////////////// 
^tiblie void sSend (String message) throws ZOExeeption 

if( message. charAt (message. length 0 -1) »« ) 

sOut .writefiytes (message) ; 
else sOut.writeBytes (message > "Nn") ; 

// END OF CXASS TCPClient 
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/* 

// trendmXib.e 

// The Poxboxo Cos^any ConfidendaX 

// Copyright (e) The Foxboro Conpany. All Rights Reserved 

// G. Couper B/l4/9e 

♦/ 

/• 

include •om^uaer.h" 

Don't use this one. It calls ipc.h which calls rpc/ types. h 

which declares bool t in conflict with StubPreamble.h 

*/ 

#include <sys/types.h> 
#include <unistd.h> 
#include <stdio.h> 

#include "psap.h" 
^include "omjudef.h" 
#incl\ide "ooTudat.h" 

#include <StubPreainble.h> /• for conversion of java structs to C 
#include <javaString.h> string manipulation */ 

#inelude "ThreadedTrendServer.h" specially generated from trendmserver. java */ 

#incltide "om_ccode.h" 

#def ine KO_1MPORT FALSE 
#define VOJSUSP^SD FAI«SE 
#define SX7SPQID TRUE 



long 

ThreadedtrendServer^omlistcreate ( struct HThreadedTrendServer *this ) 

HArrayOfByte* tnrp * unhand (this) ->jin_cm_desc; /* find the java 

buffer for the cm header */ 

struct om^header node* in om desc « (struct om^headerjnode *} iinhandCtmp) ->body; find the 
start of the"om_hea3er vithin~ttaat structure * * 

HArrayOfByte* tn^S « unhand (this) ->jin net adr tbl; find the java 

buffer ♦/ 

struct net adr* in net adr tbl « (struct net^adr *) unhand (tmpS) ->body; /• find the start of 
the body witiLi the buffer ♦/"" " 

HArrayOfByte* tn©2 « unhand (this) ->jinjvar_list; /♦ find the java 

buffer */ 

struct open var* in var list « (struct open_var ♦) unhand (tmp2 ) ->body; /* find the start of 
the body within the buffer •/ " 

printf(" c: omlistcreate - creating the list. . .\xi") ; 



unhand { this) ->jlistpoints ■ 0; 
the Ust •/ 

in__om_desc->task_status » OM_R_ACCSSS; 
in^om_desc->net^adr_tbl_ptr « in_net_adr_tbl ; 
in3om_desc->sizejnet_adr_tbl « 3? 
in~ora^desc->open2listjtr « injvar^list; 
injom^desc->cur^size^open_,list""» 37 

} 



/* record that we have no point in 



long 

ThreadcdTrendServer_omlistadd ( struct HThreadedTrendServer ♦this, struct Hjava_lang_String 
*Jnarae ) 

{ 
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/• 

This routine adds a new point nane the the om list, 
char Cnametioo] ; 

HArrayOfByte* tmp2 « ijnhand(this) ->jin_var Ust; /♦ find the java buffer ♦/ 

struct open var* in var list » (struct open var ♦) imhand(tnio2) ->body ; /• find the start of 
the body vithin the bufler ♦/ . " 

ia_var_li3t +« unhand (this) ->jlistpoints ; /• add it in the correct place on the list •/ 

javaString2CString( Aiame, Cname, sizeof (Cname) ); 

printf(" c: omlistadd • adding to list. Name is %s\n", Cname); 

strcpy<injvar_list->nanie, Cname ) ; 

injvar3list->var_desc « KOTIFY; 
in var*'liat->delta a o.i; 



1 



unhand (this )->jlistpointS'M'; /* bump the count for next time */ 



long 

ThreadedTrendServer_omlistopen ( struct HThreadedTrendServer *this ) 

HArrayOfByte *tap s unhand (this) *>jinjom_desc; /* find the java bxiffer for 

the om^header */ ^ " 

struct omjheader node *in_om_desc • (struct om^headerjaode *) unhand {txag) «>body; /* find the 
start of the'"om_hea3er within that structure ♦/ " ^ 

HArrayOfByte* tmD2 « unhand (this )->jin_var_list; /♦ find the java buffer ♦/ 

struct openjvar* injvar^list ■ (struct openjvar •) iAiand(tmp2) ->body ; /* find the start of 
the body within the buffer •/ 

HArrayOfByte* tinpS » unhand (this) ->jin_net_adr_tbl; /• find the java buffer */ 

long* txapS » (void *) unhand ( ts^S ) ->body; /« find the start of the 
body within the buffer */ 

long* tmp7 - (void *) *tji^6; /♦ find the start of the 
body %d.thin the buffer */ 

struct net adr* in net_adr tbl « (void *) tssp^s /* find the start of the 

body %fithin the buffer""*/ " 

HArrayOfByte* tmp3 > unhand (this) ->jin data; /* find the java buffer 

♦/ 

struct value* in data ptr » (struct value *) unhand ( ts^>3 ) ->body ; /* find the start of 
the body within the buffer */ 

int rtn; 
int i; 

rtn • omopen ( in_om_desc , ( int * ) ttinhand (this ) - > J in^ppen^id) ; 
printf(" cmopen""retums ■ %x\n", rtn); 

/* 

♦ if (( in data_ptr - (struct value ♦)v_varlist (8)) «» NULL) // this is the contract that 
wor)cs in the exan^le " 

♦ in^datajtr « (struct value *) v^varlist (3) ; // this one does not work, but 
should " 

*/ 

if ( in^data jtr «- NTJLL) 

printfC* Can't allocate space to receive updates . \n" ) ; 
(void) ThreadedTrendServer^omlistclose ( this ) ; 

} 
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sleep (11) ; 

printf ("Opea id • %d unhand (this) ->jin_open_id ); 

rtn « omread (unhand (this) ->j in open id, 3, in data^ptr) ; 
if (rtn l« OM_StrcCESS) - • - 

printf (**omread return » %d\n"« rtn); 
^ oniclose(unhand(this)->jin_open_id, in_om_deac, in_var_list, in_net_adr_tbl) ; 

else 
{ 

for^(i m 0; i<3; i^H.) 

printf ("Variable C%d] = %f\n-, i, in_datajtr->uval .f point ) ; 
iajdata jtr++ ; " 



long 

ThreadedTrendServer omlistgetupdate ( struct BThreadedTrendServer *this, 

" HArrayOfByte* OutBuf , 

^ long count ) 

HtarayOfByte* tB»2 « unhand (this) ->jinjvar_list; /• find the java buffer ♦/ 

struct openjvar* in var list « (struct openjvar *) unhand (tinp2 ) ->body ; find the staurt of 
the body within the buffer ~/ " 



BArrayOfByte* 



tiopa » unhand ( this) ->jin_data; 



struct value* in data ptr « (struct value *) unhand (tinp3 } ->body 
the body urithin the buffer ♦/ 

iat rtn; 

int i; 

int numvars ; 

char *data « unhand(OutB\if ) ->body; 

int len » obj^length (OutBuf ) ; 

char tBy_data(100l7 

int actual; 

pid t pid; 



/* find the java buffer 
/* find the start of 



if (lea < count) 
actual m len; 

1 

else 
{ 

actual - count; 



/* request update data */ 
pid - getpidO ; 

/♦ get ready for update data */ 
numvars « 0; 
strcpy( data, ■") ; 



rtn • dqchange (pid, HO SUSPEND, (int *) &unhand(this) ->jin_open__id, 3, in_datajptr, 
taumvars) ; ^ 

if (nunrvara > 0) 

strcpy( data, •OMOPDATE ") ; 

for (i » 0; i<« (numvars- 1) ; !+-»•) 
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sprintf(ny data, " %a « %f in_var_list tin data_ptr->indexl .name 
, in^data jtr- >uval .Ipoint ) ; " 
strcat ( data, ny data ) ; 
in_datajptr-M-; " 

strcat ( data, "Xn- ); 
printf (data) ; 



return strlen{data) ; 



long 

ThreadedTrendServer^omllstcloae ( struct BThreadedXrendServer *this ) 

HArrayOfByte ^tn^ » unhand (this) ->jinjom_desc; /« find the java buffer for 

the omjieader ♦/ - - 

stnct oin_header_node *in_om_desc « (struct oin_header_node *) unhand (tmp) '->bod/; /* find the 
start of the'om^header vithin^that structure */ ~ 

HArrayOfByte* tmp2 » tanhand(this) ->jin_var_list; /• find the java buffer ♦/ 

struct open var* in var list » (struct openjvar •) unhand ( tn5>2 ) ->body ; /* find the start of 
the body urithin the buf ler 

HArrayOfByte* tmpS » unhand ( this) ->jin_net adr_tbl; /♦ find the java buffer ♦/ 

struct net adr^ in net adr tbl » (struct net adr *) unhand (tinpS) ->body; /« 
find the start of the Eody~wit£in the buffer */ " 

int rtn; 

printf (• c: Closing list. . . ■) ; 

rtn « omclose (unhand (this) ->jin open id, in_om_desc, in^var^list, injnet_adr_tbl) ; 
printf (■ Return was %d\n", rtn)7 - - - - - 

return ( (long) rtn ); 
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// 

// trendmserver. java 

// The Foxfaoro Company Confidential 

// Copyrighc (c) The Foacboro Company. All Rights Reserved 
// 6. Couper, B. Canna 8/14/96 

in^jort java.io.*; 

import java.aet.*; 

import java.util.striagTokeaiser; 

import java. applet.*; 

^iiblic class trendmserver extends Applet 

public static void main (String argt] } throws lOException 

ServerSocket s > (ServerSocket) null; 
Socket sock; 
int i « 0; 

System.out.println("\ntrendmserver: Waiting for a socket..."); 

r 

s - new ServerSocket ( 4322 , 60 ) ; II port/socket#, seconds before timeout 

while ( true ) // this server's work is never done. 

System . out . println ( * trendmserver ; Waiting for a client..."); 
sock « s. accept (); //accecpt a connection 

System- out .println ("trendmserver: Connection accepted. Spawning new thread I" + i + 
new ThreadedTrendServer ( sock, i ). start (); 
i++; 

}//end of while to get next client 

) I lend of new socket try 
catch (lOException e) 

System.out.printlnCtrendsmserver: Quitting because of error » " ♦ e),; 
}//end of new socket catch 
}//end of main routine 
}//end of class trendmserver 
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